From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 24 May 1993 21:19:26 +0000 (+0000)
Subject: (x-set-cut-buffer): New arg PUSH.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96025
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=39479f7efaa24bb3f2ffe9f4c3c3ac1da7dda45a;p=emacs.git

(x-set-cut-buffer): New arg PUSH.
---

diff --git a/lisp/select.el b/lisp/select.el
index 0b55bebd24d..85c8d4a2ade 100644
--- a/lisp/select.el
+++ b/lisp/select.el
@@ -102,14 +102,16 @@ Cut buffers are considered obsolete; you should use selections instead."
 	     which-one)
      'CUT_BUFFER0)))
 
-(defun x-set-cut-buffer (string)
+(defun x-set-cut-buffer (string &optional push)
   "Store STRING into the X server's primary cut buffer.
-The previous value of the primary cut buffer is rotated to the secondary
+If PUSH is non-nil, also rotate the cut buffers:
+this means the previous value of the primary cut buffer moves the second
 cut buffer, and the second to the third, and so on (there are 8 buffers.)
 Cut buffers are considered obsolete; you should use selections instead."
   ;; Check the data type of STRING.
   (substring string 0 0)
-  (x-rotate-cut-buffers-internal 1)
+  (if push
+      (x-rotate-cut-buffers-internal 1))
   (x-store-cut-buffer-internal 'CUT_BUFFER0 string))